home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 021 - HO Utilities - Clock Utility System.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2019-02-16  |  2KB  |  51 lines
  1. 10  GOSUB 50000: PRINT  CHR$(21): HOME : VTAB 24: PRINT "Copyright (C) 1986 Applied Engineering";: VTAB 1: PRINT 
  2. 20  REM *  ProDOS Time   *
  3. 30  REM * Utilities Menu * 
  4. 40  VTAB 1
  5. 50 A$ = "TimeMaster II H.O.": GOSUB 1000
  6. 60 A$ = "ProDOS Time Utilities": GOSUB 1000
  7. 70 A$ = "------ ---- ---------": GOSUB 1000
  8. 80 HT = 3
  9. 90  PRINT : PRINT 
  10. 100  PRINT : HTAB HT: PRINT "1). Install AppleWorks Time Utility"
  11. 110  PRINT : HTAB HT: PRINT "2). Set Clock"
  12. 120  PRINT : HTAB HT: PRINT "3). Display Time and Date"
  13. 130  PRINT : HTAB HT: PRINT "4). Install TPCE and exit to BASIC"
  14. 140  PRINT : HTAB HT: PRINT "5). Talking Clock (with AE Phasor)"
  15. 150  PRINT : HTAB HT: PRINT "6). Exit to BASIC"
  16. 160  PRINT 
  17. 170  PRINT : HTAB HT: PRINT "Choose option an Option? ";
  18. 180  GET A$: IF A$ =  CHR$(27)  THEN 700
  19. 190  ON  VAL(A$) GOTO 200,300,400,500,600,700: GOTO 180
  20. 200  PRINT A$
  21. 210  PRINT  CHR$(4)"-AW.MENU"
  22. 300  PRINT A$
  23. 310  PRINT  CHR$(4)"-SET.CLOCK"
  24. 400  PRINT A$
  25. 410  PRINT  CHR$(4)"-TIME.DATE.DISPL"
  26. 500  PRINT A$
  27. 510  PRINT  CHR$(4)"-TPCE"
  28. 520  PRINT  CHR$(4)"HELP"
  29. 530  NEW 
  30. 540  END 
  31. 600  PRINT A$
  32. 610  VTAB 21: PRINT "WHAT SLOT IS PHASOR IN? (N FOR NONE) ";: GET Q$: PRINT Q$:SLOT =  VAL(Q$)
  33. 620  IF Q$ =  CHR$(27)  OR Q$ = "N"  OR Q$ = "n"  THEN 40
  34. 630  IF SLOT <1  OR SLOT >7  THEN  PRINT  CHR$(7): GOTO 610
  35. 640  POKE 49268,1: REM  SLOW DOWN TRANSWARP
  36. 650 H = 30464: IF ( PEEK(116) +4) *256 + PEEK(115) = H  THEN 610
  37. 660  PRINT  CHR$(4)"BLOAD TTS": POKE 8710,SLOT: CALL 8192
  38. 670  PRINT  CHR$(4)"-TALKING.CLOCK"
  39. 700  HOME 
  40. 710  NEW 
  41. 720  END 
  42. 1000  HTAB (40 - LEN(A$))/2: PRINT A$: RETURN 
  43. 50000  IF  PEEK(64435) = 56  THEN 50030
  44. 50010  IF  PEEK(64435) = 234  AND  PEEK(64286) = 173  THEN 50030
  45. 50020  RETURN 
  46. 50030  HOME 
  47. 50040  VTAB 10: PRINT "LOWER CASE:abcdefghijklmnopqrstuvwxyz"
  48. 50050  PRINT "DISPLAY LOWERCASE LETTERS? (Y/N)";: GET Q$: PRINT Q$
  49. 50060  IF Q$ = "N"  OR Q$ = "n"  THEN  PRINT  CHR$(4)"BRUN UPPER.CASE": RETURN 
  50. 50070  IF Q$ < >"Y"  AND Q$ < >"y"  THEN  PRINT  CHR$(7): GOTO 50040
  51. 50080  RETURN